home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_A.d64 / blitter demo2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  385b  |  19 lines
  1. 1 speicher:poke 53280,0:poke53281,0:print""
  2. 2 clear:start
  3. 10 for n=200to100 step -2:a=n/300
  4. 20 for m=nto100+nstep20
  5. 28 gosub2000
  6. 40 next:bild:next
  7. 50 for n=99to-100 step -2:a=n/300
  8. 60 for m=nto100+nstep10
  9. 65 gosub2000:next:bild:next
  10. 1000 film 129
  11. 2000 if m<=1then return
  12. 2010 b=4000/m:x1=-b*2:x2=-x1
  13. 2020 y1=-b/2:y2=y1
  14. 2030 z1=cos(a)*x1+sin(a)*y1
  15. 2040 z2=cos(a)*x2+sin(a)*y2
  16. 2050 y1=+sin(a)*x1+cos(a)*y1
  17. 2060 y2=+sin(a)*x2+cos(a)*y2
  18. 2070 line z1,y1,z2,y2:return
  19.